home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / AEMail.lha / aemail151 / Install_AEMail < prev    next >
Encoding:
Text File  |  1998-03-21  |  43.8 KB  |  1,203 lines
  1. ;**
  2. ;** Install_AEMail - AEMail installation script for Installer
  3. ;**
  4. ;** Copyright (c) 1996-1998 John F. Zacharias
  5. ;**                    All rights reserved.
  6. ;**
  7. ;** This script has been tested with Installer 43.3 which is included with
  8. ;** this archive:
  9. ;**
  10. ;**     Installer and Installer project icon
  11. ;**     (c) Copyright 1995-96 Escom AG.  All Rights Reserved.
  12. ;**     Reproduced and distributed under license from Escom AG.
  13. ;**
  14. ;**     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  15. ;**     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  16. ;**     OR RESPONSIBILITY IS ASSUMED.
  17. ;**
  18. ;** Use following Icon tooltypes / Command line options:
  19. ;**
  20. ;** APPNAME=AEMail
  21. ;** MINUSER=NOVICE
  22. ;**
  23. ;**
  24. ;** Installer script modified on 03/07/98 for AEMail Version 1.50
  25.  
  26. (set
  27.  ;;
  28.  ;; The source directory name
  29.  ;;
  30.  source-dir (if (= 1 (exists @icon))
  31.             (pathonly (expandpath @icon))
  32.             (expandpath @icon)))
  33.  
  34. (set version_3_0 39)
  35.  
  36. (set aem-vernum (getversion (tackon source-dir "AEMail")))
  37. (set
  38.     aem-vernew (/ aem-vernum 65536)
  39.     aem-revnew (- aem-vernum (* aem-vernew 65536)))
  40.  
  41. (set exec-version (/ (getversion) 65536))
  42. (set avail-mem (+ (database "total-mem")))
  43. (set system-cpu (database "cpu"))
  44.  
  45. (set full-aem-name "AEMail Beta Version 1.50")
  46.  
  47. (set
  48.     aem-name "AEMail"
  49.     aem-assign (cat aem-name ":")
  50.     aem-Termite 0
  51.     )
  52.  
  53. (if (= 1 (exists "ENV:TermiteTCP.prefs" (noreq)))
  54.          (set aem-Termite 1)
  55.          (set aem-Termite 0))
  56.  
  57. (if (= 2 (exists "AMITCP:bin" (noreq)))
  58.     (set aem-have-AMITCP 1)
  59.     (set aem-have-AMITCP 0))
  60.  
  61. (if (= 2 (exists "Miami:" (noreq)))
  62.     (set aem-have-MIAMI 1)
  63.     (set aem-have-MIAMI 0))
  64.  
  65. (if (= 1 (exists "ENV:AEMail_Dir" (noreq)))
  66.     ((set
  67.         @default-dest (getenv ("AEMail_Dir"))
  68.         len (strlen @default-dest))
  69.      (if (= "\n" (substr @default-dest (- len 1) 1))
  70.          (set @default-dest (substr @default-dest 0 (- len 1)))))
  71.     (set @default-dest
  72.         (if (= 1 aem-have-AMITCP)
  73.             (expandpath "AMITCP:bin")
  74.             (@default-dest))))
  75.  
  76. (if (= "AEMail" (fileonly @default-dest))
  77.     (set @default-dest (pathonly @default-dest)))
  78.  
  79.  
  80. (if (= 2 @user-level)
  81.  
  82.     (set
  83.     ;;
  84.     ;; Sets up where to place AEMail program
  85.     ;;
  86.     @default-dest
  87.         (askdir
  88.             (prompt "Enter the drawer in which you want AEMail installed\n"
  89.                     "A drawer called AEMail will be created "
  90.                     "if it does not already exist (except if AmiTCP:bin is "
  91.                     "specified)")
  92.             (help   "If you are using AmiTCP, AEMail should be installed in "
  93.                     "'AmiTCP:bin'\n\n"
  94.                     "However, you may install it anywhere you like\n\n"
  95.                     "If it is not 'AmiTCP:bin' a drawer called 'AEMail' "
  96.                     "will be created.\n")
  97.             (default @default-dest)
  98.             (newpath))))
  99.  
  100. (if (= 1 aem-have-AMITCP)
  101.     (if (<> @default-dest (expandpath "AMITCP:bin"))
  102.         (set aem-have-AMITCP 0)))
  103.  
  104. ; (if (= "AEMail" (fileonly @default-dest))
  105. ;     (set @default-dest (pathonly @default-dest)))
  106.  
  107. (if (= 0 aem-have-AMITCP)
  108.     (set @default-dest (tackon @default-dest "AEMail")))
  109.  
  110. (if (= 0 (exists @default-dest (noreq)))
  111.     ((makedir @default-dest (infos))
  112.      (onerror ((delete @default-dest
  113.                 (prompt "Deleting AEMail directory")
  114.                 (help "Deleting AEMail directory")
  115.                 (optional "force")
  116.                 (safe)
  117.                 (all)
  118.                 (infos))
  119.               (delete "RAM:AEMfiles"
  120.                 (prompt "Deleting RAM: AEMail files")
  121.                 (optional "force")
  122.                 (safe)
  123.                 (all)
  124.                 (infos))))))
  125.  
  126. (if (= 1 (exists @default-dest (noreq)))
  127.     (set @default-dest (pathonly @default-dest)))
  128.  
  129. (set aem-default-dest @default-dest)
  130.  
  131. (set
  132.  ;;
  133.  ;; The default Mail directory
  134.  ;;
  135.     aem-change-name 0
  136.  
  137.     atcp-dir (if (= 1 aem-have-AMITCP)
  138.         (expandpath "AMITCP:")
  139.         (@default-dest))
  140.  
  141.     aem-dft-maildir (if (= 2 (exists aem-assign (noreq)))
  142.         (pathonly(getassign aem-name))
  143.         (atcp-dir))
  144.  
  145.     aem-mail-name (if (= 2 (exists aem-assign (noreq)))
  146.         (fileonly(getassign aem-name))
  147.         (""))
  148.   )
  149.  
  150.  
  151. (if (<> "" aem-mail-name)
  152.     (if (<> "AEMail_Mail" aem-mail-name)
  153.         ((set
  154.             aem-change-name
  155.                 (askbool
  156.                     (prompt "Your AEMAIL: assignment is for:\n\n"
  157.                             (getassign aem-name) "\n\n"
  158.                             "This directory is not named \"AEMail_Mail\"\n\n"
  159.                             "Do you want to change the directory's name to "
  160.                             "\"AEMail_Mail\" and use it as your AEMAIL: directory?")
  161.                     (help   "This install script automatically uses an AEMAIL: "
  162.                             "assignment name of \"AEMail_Mail\".  If you reply NO "
  163.                             "to this request your existing AEMAIL: directory "
  164.                             "will NOT be used as your mail directory\n")
  165.                     (default 1))))))
  166.  
  167. (if (= 1 aem-change-name)
  168.  
  169.     ((rename (tackon aem-dft-maildir aem-mail-name)
  170.             (tackon aem-dft-maildir "AEMail_Mail")
  171.             (prompt "Relabeling AEMAIL: directory")
  172.             (help   "Relabeling AEMAIL: directory"))
  173.     (rename (tackon aem-dft-maildir ("%s.info" aem-mail-name))
  174.             (tackon aem-dft-maildir "AEMail_Mail.info")
  175.             (prompt "Relabeling AEMAIL: directory .info")
  176.             (help   "Relabeling AEMAIL: directory .info")))
  177. )
  178.  
  179. (set
  180.     aem-mail-dir (aem-dft-maildir))
  181.  
  182. (if (= 2 @user-level)
  183.  
  184.     (set
  185.         aem-mail-dir
  186.             (askdir
  187.                 (prompt "Enter the drawer in which you want your mail placed.  "
  188.                     "A drawer called 'AEMail_Mail' will be created in this "
  189.                     "drawer (if it does not already exist) and AEMAIL: will be "
  190.                     "assigned to 'AEMail_Mail'")
  191.                 (help   "All of your mail and configuration files will be stored "
  192.                     "in the 'AEMail_Mail' sub-directory of this drawer.  An assign "
  193.                     "statement will be assigned to the 'AEMail_Mail' sub-directory to 'AEMAIL:' "
  194.                     "and will be placed in your 'S:User-Startup' script.\n\n"
  195.                     "The directory your specify here will be created if it does "
  196.                     "not exist\b")
  197.                 (default aem-dft-maildir)
  198.                 (newpath))))
  199.  
  200.  
  201. (if (= "AEMail_Mail" (fileonly aem-mail-dir))
  202.     (set aem-mail-dir (pathonly aem-mail-dir)))
  203.  
  204. (set aem-mail-dir (tackon aem-mail-dir "AEMail_Mail"))
  205.  
  206. ; Use ENV:PAGER program, Multiview, or copy "More" to RAM: for use
  207.  
  208. (set
  209.  pager-cmd (if (exists "ENV:PAGER" (noreq)) (getenv "PAGER"))
  210.  pager-cmd
  211.     (if pager-cmd pager-cmd
  212.         (if (= 1 (exists "SYS:Utilities/Multiview" (noreq)))
  213.             ("SYS:Utilities/Multiview")
  214.             ((copyfiles
  215.                 (prompt "Copying " (tackon source-dir "c/More") " to RAM: for use")
  216.                 (source (tackon source-dir "c/More"))
  217.                 (dest   "RAM:")
  218.                 (safe)
  219.                 (optional "nofail"))
  220.                 "RAM:More"))))
  221.  
  222. (makedir "RAM:AEMfiles")
  223. (makedir "RAM:AEMfiles/ARexx")
  224.  
  225. (copyfiles
  226.     (prompt "Copying AEMail.readme to RAM:")
  227.     (source (tackon source-dir "AEMail.readme"))
  228.     (dest   "RAM:AEMfiles")
  229.     (infos))
  230.  
  231. (copyfiles
  232.     (prompt "Copying LHA to RAM:")
  233.     (source (tackon source-dir "c/LHex"))
  234.     (dest   "RAM:"))
  235.  
  236. (set
  237.     doc-files (tackon source-dir "files.lha"))
  238.  
  239. (set
  240.     doc-files ("\"%s\"" doc-files))
  241.  
  242. (message "\n\nSelect PROCEED to decompress the AEMail files to RAM\n\n"
  243.     "Be patient, this will take a while\n\n"
  244.     "If you are installing from diskette, the decompression "
  245.     "will take approx 3 minutes\n\n"
  246.     "From your hard drive, the decompression will take approx 20 seconds")
  247.  
  248. (set aem-lha
  249.     (run "RAM:lhex -fwRAM:AEMfiles x " doc-files " >NIL:" (safe)))
  250. (set aem-lha
  251.     (run "RAM:lhex -fw=RAM:AEMfiles/ARexx x RAM:AEMfiles/arexx.lha >NIL:" (safe)))
  252.  
  253. (delete 
  254.     "RAM:lhex"
  255.     (prompt "Deleting RAM:lha file")
  256.     (optional "force")
  257.     (safe))
  258.  
  259. (if (< exec-version version_3_0)
  260.     (tooltype
  261.         (dest "RAM:AEMfiles/AEMail.guide")
  262.         (setdefaulttool "AmigaGuide"))
  263.     (tooltype
  264.         (dest "RAM:AEMfiles/AEMail.guide")
  265.         (setdefaulttool "MultiView")))
  266.  
  267. (set
  268.     aem-configure 0
  269.     aem-interlace 0
  270.     aem-needconfig 0
  271.     aem-options 3
  272.     aem-config ""
  273.     aem-username ""
  274.     aem-password ""
  275.     aem-from ""
  276.     aem-replyto ""
  277.     aem-organization ""
  278.     aem-realname ""
  279.     aem-domain ""
  280.     aem-popserver ""
  281.     aem-smtpserver ""
  282.     aem-editor ""
  283.     aem-startnet ""
  284.     aem-stopnet ""
  285.     aem-need-AREXX 0
  286.     aem-needstrtarexx 0
  287.     aem-needstoparexx 0)
  288.  
  289. (if (= 1 aem-have-MIAMI)
  290.     (set
  291.         aem-need-AREXX 1
  292.         aem-needstrtarexx 1
  293.         aem-startnet (tackon aem-default-dest "startnet.miami")
  294.         aem-needstoparexx 1
  295.         aem-stopnet  (tackon aem-default-dest "stopnet.miami"))
  296.     (if (= 1 aem-have-AMITCP)
  297.         (set
  298.             aem-need-AREXX 1
  299.             aem-startnet (tackon aem-default-dest "startnet")
  300.             aem-stopnet (tackon aem-default-dest "stopnet"))))
  301.  
  302. (if (= 1 aem-Termite)
  303.     ((set
  304.         aem-from (getenv "ttcp-email-address")
  305.         aem-tccp-len (strlen aem-from)
  306.         aem-tccp-cnt 0)
  307.  
  308.      (while (<> aem-tccp-cnt aem-tccp-len)
  309.             (if (= "@" (substr aem-from aem-tccp-cnt 1))
  310.                 (set
  311.                     aem-username
  312.                         (substr aem-from 0 aem-tccp-cnt)
  313.                     aem-tccp-cnt (+ 1 aem-tccp-cnt)
  314.                     aem-domain
  315.                         (substr aem-from aem-tccp-cnt))
  316.                 (set
  317.                     aem-tccp-cnt (+ 1 aem-tccp-cnt))))))
  318.  
  319.  
  320. (if (< 0 @user-level)
  321. (if (<> 1 (exists "s:aemail.cnfg" (noreq)))
  322. (set
  323.     aem-configure
  324.         (askbool
  325.             (prompt "\nYou can configure AEMail now or you can wait until "
  326.                     "AEMail is first loaded.  Do you want to configure now?\n")
  327.             (help   "AEMail is configured either by Tool Types in it's icon "
  328.                     "or by a configuration screen which is automatically "
  329.                     "called up when you first execute AEMail if the Tool "
  330.                     "Type parameters were not given.  By replying "
  331.                     "'Yes, Configure Now' you will be setting the Tool Type "
  332.                     "parameters\n")
  333.             (choices "No, Configure Later" "Yes, Configure Now"))
  334.     )
  335. (set
  336.     aem-configure
  337.         (askbool
  338.             (prompt "\nYou have an existing configuration file.\n\n"
  339.                     "Do you want to use it or do you want to re-configure "
  340.                     "AEMail now?\n")
  341.             (help   "By replying 'Yes, Re-configure Now' "
  342.                     "you will be renaming the current configuration file "
  343.                     "to 's:aemail.cnfg.old' "
  344.                     "and resetting the configuration by tool type "
  345.                     "parameters\n")
  346.             (choices "Use existing Config File" "Yes, Re-Configure Now")))
  347. )
  348. )
  349.  
  350. (if (= 0 aem-configure)
  351.     ((rename "s:aemail.cnfg" "s:aemail.cnfg.old"
  352.             (prompt "Renaming old s:aemail.cnfg file"))
  353.     (set aem-interlace
  354.         (askbool
  355.             (prompt "\n\nDo you want to open AEMail on an interlaced screen?")
  356.             (help   "Replying 'YES' will place the Tool Type 'INTERLACE=YES' "
  357.                     "in your AEMail icon.  This will open AEMail on an "
  358.                     "interlaced screen when it is executed.\n")))
  359.  
  360.     (Set continue 0)
  361.  
  362.     (message "\n\nWe need to know something about your Internet provider and what "
  363.         "the POP and SMTP Servers on your provider's machine are called.  "
  364.         "Also, when you signed up for your InterNet service you chose or "
  365.         "were given a login name and password for your POP server. "
  366.         "You will be prompted for these names now.  If you have any "
  367.         "questions as to what parameters to use, select 'help' "
  368.         "or consult information provided by your Internet provider.")
  369.  
  370.     (while
  371.         (= continue 0)
  372.  
  373.         (set
  374.  
  375.         aem-domain
  376.             (askstring
  377.                 (prompt "\nEnter the domain name for your InterNet Provider " 
  378.                         "required for getting mail\n\n")
  379.                 (help   "The domain name is usually the part of your e-mail address "
  380.                         "that follows the '@' sign.  If something else is required "
  381.                         "by your Internet Provider, provide it here.\n\n"
  382.                         "As an example, my email "
  383.                         "address is\n\njzachar@calweb.com\n\nThe domain name "
  384.                         "for my Internet provider is therefor 'calweb.com'.")
  385.                 (default aem-domain))
  386.  
  387.         aem-popserver
  388.             (if (= "" aem-domain)
  389.                 ("")
  390.                 (if (= "" aem-popserver)
  391.                     (cat "pop." aem-domain)
  392.                     (aem-popserver)))
  393.  
  394.         aem-smtpserver
  395.             (if (= "" aem-domain)
  396.                 ("")
  397.                 (if (= "" aem-smtpserver)
  398.                     (cat "smtp." aem-domain)
  399.                     (aem-smtpserver)))
  400.  
  401.         aem-popserver
  402.             (askstring
  403.                 (prompt "\nEnter the name of your POP Server\n\n")
  404.                 (help   "POP stands for 'Post Office Protocol' and your "
  405.                         "POP Server is the name assigned to the host "
  406.                         "computer that holds your Internet mail.  Normally "
  407.                         "this would be 'pop.' or 'mail.'  prepended to your "
  408.                         "Domain name.\n\n"
  409.                         "Consult your Internet provider if the POP Server "
  410.                         "is called something other than '"aem-popserver
  411.                         "' enter that name in this string requester ")
  412.                 (default aem-popserver))
  413.  
  414.         aem-smtpserver
  415.             (askstring
  416.                 (prompt "\nEnter the name of your SMTP Server\n")
  417.                 (help   "SMTP stands for 'Simple Mail Transfer Protocol' and "
  418.                         "your SMTP server is the name assigned to the host "
  419.                         "computer that sends your Internet mail.  Normally "
  420.                         "this would be 'smtp.' or 'mail.' prepended to your " 
  421.                         "Domain name.\n\n"
  422.                         "Consult your Internet provider if the SMTP Server "
  423.                         "is called something other than '"aem-smtpserver
  424.                         "' enter that name in this string requester ")
  425.                 (default aem-smtpserver))
  426.  
  427.         aem-username
  428.             (askstring
  429.                 (prompt "\nEnter the login name you have been assigned by your "
  430.                 "InterNet Provider for logging into your POP Server\n\n"
  431.                 "NOTE: Your provider may have allowed you to chose this login "
  432.                 "name.\n")
  433.                 (help "You must give your login name.  The login name consists "
  434.                 "of lowercase letters a-z and numbers.  Its recommended maximum "
  435.                 "length is 8 characters.\n\n"
  436.                 "Examples of acceptable login names are 'jzachar' and "
  437.                 "'an345'.")
  438.                 (default aem-username))
  439.  
  440.         aem-password
  441.             (askstring
  442.                 (prompt "\n\nEnter the password you need to log into your "
  443.                 "POP Server.\n\n"
  444.                 "NOTE: Your provider may have assigned you your password"
  445.                 " or you were allowed to chose your own.\n")
  446.                 (help   "This may be the same password that you use to log "
  447.                         "into your Internet Provider.  Consult your Internet "
  448.                         "Provider (ISP) if it is different.")
  449.                 (default aem-password))
  450.  
  451.  
  452.         continue
  453.             (askbool
  454.                 (prompt "Is the following information correct?\n\n"
  455.                     "SMTP Domain name: " aem-domain "\n"
  456.                     "POP Server Name: " aem-popserver "\n"
  457.                     "SMTP Server Name: " aem-smtpserver "\n"
  458.                     "Login name: " aem-username "\n"
  459.                     "Password: " aem-password "\n\n")
  460.                 (help "If you have made a mistake on any of the entries you "
  461.                 "can select \"No, Enter Again\" or, if eveything is all right, "
  462.                 "select \"Yes, Continue\"\n")
  463.                 (choices "Yes, Continue" "No, Enter Again"))
  464.         )
  465.     )
  466.  
  467.     (Set continue 0)
  468.  
  469.     (set
  470.         aem-from 
  471.             ("%s@%s" aem-username aem-domain))
  472.  
  473.     (message "\n\nWhen you signed up for your InterNet service you were "
  474.          "also assigned an email address to receive mail with.  You will "
  475.          "be prompted for this now.")
  476.  
  477.  
  478.     (while
  479.         (= continue 0)
  480.  
  481.         (set
  482.  
  483.         aem-from
  484.             (askstring
  485.                 (prompt "\n\nEnter your full email address (user@domain):\n")
  486.                 (help "You must give your email address.  The email address "
  487.                     "is what you are known by on the Internet and consists of " 
  488.                     "a username and domain name separated by an '@' sign.\n\n"
  489.                     "NOTE: The username and domain name could be the same "
  490.                     "as the POP login name and SMTP Domain Name you were "
  491.                     "prompted for before, or they MAY NOT be - consult your "
  492.                     "ISP.")
  493.                 (default aem-from))
  494.  
  495.         continue
  496.             (askbool
  497.                 (prompt "\n\nIs the following information correct?\n\n"
  498.                     "Email Address: " aem-from "\n\n")
  499.                 (help "If you have made a mistake with this entry you "
  500.                 "can select \"No, Enter Again\" or, if eveything is all right, "
  501.                 "select \"Yes, Continue\"\n")
  502.                 (choices "Yes, Continue" "No, Enter Again"))
  503.         )
  504.     )
  505.  
  506.     (Set continue 0)
  507.  
  508.     (message "\n\nThere is certain identity information that you "
  509.          "may give to further identify you on the Internet.  These include "
  510.          "your real name, a possible reply address, and the organization "
  511.          "that you belong to.  You will be prompted for these now. These are "
  512.          "all optional parameters and you can leave them blank if you wish.")
  513.  
  514.     (set aem-replyto aem-from)
  515.  
  516.     (while
  517.         (= continue 0)
  518.  
  519.         (set
  520.  
  521.         aem-realname
  522.             (askstring
  523.                 (prompt "\n\nEnter the real name for "aem-from ":\n")
  524.                 (help "The real name can contain any characters except "
  525.                     "comma (','), colon (':') or bar ('|').")
  526.                 (default aem-realname))
  527.  
  528.         aem-replyto
  529.             (askstring
  530.                 (prompt "\n\nEnter the email address you want replies "
  531.                     "sent to\n\n")
  532.                 (help   "This may be the same as your regular email address. "
  533.                         "This address is optional and can be left blank.")
  534.                 (default aem-replyto))
  535.  
  536.         aem-organization
  537.             (askstring
  538.                 (prompt "\n\nEnter the organization you belong to (optional):\n")
  539.                 (help "The organization is optional and can be left blank.")
  540.                 (default aem-organization))
  541.  
  542.         continue
  543.             (askbool
  544.                 (prompt "\n\nIs the following information correct?\n\n"
  545.                     "Real name: " aem-realname "\n"
  546.                     "Reply To Address: " aem-replyto "\n"
  547.                     "Organization: " aem-organization "\n\n")
  548.                 (help "If you have made a mistake on any of the entries you "
  549.                 "can select \"No, Enter Again\" or, if eveything is all right, "
  550.                 "select \"Yes, Continue\"\n")
  551.                 (choices "Yes, Continue" "No, Enter Again"))
  552.         )
  553.     )
  554.  
  555.     (message "\n\nAEMail requires an editor to prepare messages to send.  "
  556.         "You can use the standard AmigaDOS editor, ed, or any "
  557.         "editor of your choice.")
  558.  
  559.  
  560.     (set
  561.         aem-editor
  562.             (askfile
  563.                 (prompt "Enter the Editor you want to use with AEMail.")
  564.                 (help   "AEMail requires an editor to prepare messages to "
  565.                         "send.  After your select the editor from the file "
  566.                         "requester you will be asked to enter parameter "
  567.                         "information required by your editor.\n")
  568.                 (default "SYS:c/ed"))
  569.  
  570.         aem-editor
  571.             (askstring
  572.                 (prompt "Add the parameters required for your editor.\n\n"
  573.                         "You must always add '%s' to specify where your "
  574.                         "mail file name goes.\n")
  575.                 (help   "You will need to add parmeters that may be "
  576.                         "required by your editor.  One required parameter "
  577.                         "required by ALL editors is '%s' to specify where "
  578.                         "the mail file name goes.\n")
  579.                 (default (cat aem-editor " %s")))
  580.  
  581.         aem-edonwb
  582.             (askbool
  583.                 (prompt "Does your editor have to open on the Workbench?"
  584.                 (help   "Some editors, like Commodore's ED will always open "
  585.                         "on the Workbench.  Others will open on their own "
  586.                         "screen.  If your editor opens on the Workbench, "
  587.                         "you must reply 'YES' to this request.\n")))
  588.  
  589.         aem-editor
  590.             (if (= 1 aem-edonwb)
  591.                 (cat "WB;" aem-editor)
  592.                 ("%s" aem-editor))
  593.     )
  594.  
  595.     (set 
  596.         aem-neednetscrpts
  597.             (askbool
  598.                 (prompt "\n\nDo you want Start Net and/or Stop Net scripts?\n")
  599.                 (help   "If you reply 'Yes', you will be prompted for your "
  600.                         "Start Net and Stop Net scripts.\n"
  601.                         "If you reply 'No', AEMail will run without any "
  602.                         "Start Net or Stop Net scripts.\n")))
  603.  
  604.     (if (= 1 aem-neednetscrpts)
  605.         (if (<> "" aem-startnet)
  606.           (set aem-neednetscrpts
  607.             (askbool
  608.                 (prompt "Is your StartNet and/or StopNet scripts other than\n\n"
  609.                         "Start Net: " aem-startnet "\n"
  610.                         "Stop Net:  " aem-stopnet  "\n")
  611.                 (help   "Only reply 'YES' if your Start Net and Stop Net scripts "
  612.                         "are not the scripts listed listed below:\n\n"
  613.                          aem-startnet "\n"
  614.                          aem-stopnet "\n"))))
  615.         (set
  616.             aem-needstrtarexx 0
  617.             aem-startnet ""
  618.             aem-needstoparexx 0
  619.             aem-stopnet ""))
  620.  
  621.  
  622.     (if (= 1 aem-neednetscrpts)
  623.         ((set
  624.           need-startnet
  625.             (askbool
  626.                 (prompt "Do you need a Start Net script?")
  627.                 (help   "If you reply 'No' AEMail will run without a Start Net "
  628.                         "script\n\nIf you reply 'YES' you will be prompted "
  629.                         "for the location of your Start Net script")))
  630.         (if (= 1 need-startnet)
  631.              (set
  632.                aem-startnet
  633.                 (askfile
  634.                   (prompt "Enter the Start Net script you want to use with AEMail.")
  635.                   (help   "If you are NOT using the standard AmiTCP startnet "
  636.                           "script in AmiTCP:bin or the standard Miami script "
  637.                           "you will have to provide the "
  638.                           "script you are using.\n")
  639.                   (default (tackon aem-default-dest "startnet")))
  640.                aem-needstrtarexx
  641.                 (askbool
  642.                     (prompt "Is this an AmigaDOS script or an AREXX script?")
  643.                     (help   "The standard AmiTCP Start Net script is an AmigaDos "
  644.                             "script that calls AREXX\n\n "
  645.                             "The standard Miami script is an AREXX script "
  646.                             "AND must be called from AREXX\n")
  647.                     (choices "AREXX script" "AmigaDOS script")))
  648.              (set aem-startnet ""
  649.                   aem-needstrtarexx 0))
  650.  
  651.         (set
  652.           need-stopnet
  653.             (askbool
  654.                 (prompt "Do you need a Stop Net script?")
  655.                 (help   "If you reply 'No' AEMail will run without a Stop Net "
  656.                         "script\n\nIf you reply 'YES' you will be prompted "
  657.                         "for the location of your Stop Net script")))
  658.         (if (= 1 need-stopnet)
  659.             (set
  660.                aem-stopnet
  661.                 (askfile
  662.                   (prompt "Enter the Stop Net script you want to use with AEMail.")
  663.                   (help   "If you are NOT using the standard AmiTCP stopnet "
  664.                           "script in AmiTCP:bin or the standard Miami script "
  665.                           "you will have to provide the "
  666.                           "script you are using.\n")
  667.                   (default (tackon aem-default-dest "stopnet")))
  668.                aem-needstoparexx
  669.                 (askbool
  670.                     (prompt "Is this an AmigaDOS script or an AREXX script?")
  671.                     (help   "The standard AmiTCP Stop Net script is an AmigaDos "
  672.                             "script that calls AREXX\n\n "
  673.                             "The standard Miami script is an AREXX script "
  674.                             "AND must be called from AREXX\n")
  675.                     (choices "AREXX script" "AmigaDOS script")))
  676.              (set aem-stopnet ""
  677.                   aem-needstoparexx 0))))
  678.  
  679.     (set aem-options
  680.         (askoptions
  681.             (prompt "Select those AEMail options you want AEMail to open with\n\n")
  682.             (help @askoptions-help)
  683.             (choices "Delete Mail from Server"
  684.                  "Strip Duplicate Messages"
  685.                  "Display Full Header"
  686.                  "Include Header in Reply"
  687.                  "Automatic Connection at Startup"
  688.                  )
  689.             (default 3))
  690.     )))
  691.  
  692.  
  693. (if (= 1 aem-needstrtarexx)
  694.     (set
  695.         aem-startnet
  696.             (cat "rx " aem-startnet)))
  697.  
  698. (if (= 1 aem-needstoparexx)
  699.     (set
  700.         aem-stopnet
  701.             (cat "rx " aem-stopnet)))
  702.  
  703. (if (= 2 @user-level)
  704.     (set
  705.       aem-needconfig
  706.         (askbool
  707.             (prompt "Do you want to run with your own configuration file?")
  708.             (help   "If you are using the standard s:aemail.cnfg file "
  709.                     "reply 'NO'.\n\n"
  710.                     "If you want to use your own configuration file then "
  711.                     "reply 'YES'")))
  712.     (set aem-needconfig 0))
  713.  
  714. (if (= 1 aem-needconfig)
  715.     (set
  716.         aem-config
  717.             (askfile
  718.                 (prompt "Enter the configuration script you want to use "
  719.                         "with AEMail")
  720.                 (help   "If you are using a configuration file other than "
  721.                         "s:aemail.cnfg you can locate and or specify it "
  722.                         "here.")
  723.                 (default "s:aemail.cnfg"))))
  724.  
  725. (set
  726.     aem-docs-dir-dft (tackon @default-dest "documentation")
  727.     aem-rexx-dir-dft (tackon @default-dest "ARexx"))
  728.  
  729. (if (< 0 @user-level)
  730.     (set
  731.       aem-docs
  732.         (askoptions
  733.             (prompt "Select which AEMail documentation files you want copied\n\n")
  734.             (help @askoptions-help)
  735.             (choices "AEMail.readme"
  736.                      "AEMail.doc"
  737.                      "AEMail.guide"
  738.                      "email.txt"
  739.                      )
  740.             (default 15)))
  741.  
  742.     (set aem-docs 15))
  743.  
  744.  
  745. (if (= 2 @user-level)
  746.     (if (<> 0 aem-docs)
  747.         (set
  748.           aem-docs-dir
  749.             (askdir
  750.                 (prompt "Which directory do you want the documentation files "
  751.                         "copied to\n")
  752.                 (help   "You may select a different directory than the " 
  753.                         "'documentation' sub-directory in your program's "
  754.                         "directory to copy the documentation files to.\n")
  755.                 (newpath)
  756.                 (default aem-docs-dir-dft))))
  757.     (set aem-docs-dir aem-docs-dir-dft)
  758. )
  759.  
  760. (if (= 2 @user-level)
  761.         (set
  762.           aem-rexx-dir
  763.             (askdir
  764.                 (prompt "Which directory do you want the ARexx files "
  765.                         "copied to\n")
  766.                 (help   "You may select a different directory than the " 
  767.                         "'ARexx' sub-directory in your program's "
  768.                         "directory to copy the ARexx files to.\n")
  769.                 (newpath)
  770.                 (default aem-rexx-dir-dft)))
  771.     (set aem-rexx-dir aem-rexx-dir-dft)
  772. )
  773.  
  774. (if (<> 2 (exists aem-mail-dir (noreq)))
  775.     (makedir aem-mail-dir (infos)))
  776.  
  777. (if (<> 2 (exists aem-docs-dir (noreq)))
  778.     (makedir aem-docs-dir (infos)))
  779.  
  780. (if (<> 2 (exists aem-rexx-dir (noreq)))
  781.     (makedir aem-rexx-dir (infos)))
  782.  
  783. (copyfiles
  784.     (prompt "Copying AEMail to " @default-dest)
  785.     (source "RAM:AEMfiles/AEMail")
  786.     (dest   @default-dest))
  787.  
  788. (copyfiles
  789.     (prompt "Copying AEMail.info to " @default-dest)
  790.     (source "RAM:AEMfiles/AEMail.inf")
  791.     (newname "AEMail.info")
  792.     (dest   @default-dest)
  793.     (noposition))
  794.  
  795. (copyfiles
  796.     (prompt "copy registration.form to " @default-dest)
  797.     (source (tackon source-dir "registration.form"))
  798.     (dest   @default-dest)
  799.     (noposition)
  800.     (infos))
  801.  
  802. (if (= 1 aem-have-MIAMI)
  803.     ((copyfiles
  804.         (prompt "Copy Miami Start Net script to " @default-dest)
  805.         (source (tackon source-dir "startnet.miami"))
  806.         (dest   @default-dest))
  807.     (copyfiles
  808.         (prompt "Copy Miami Stop Net script to " @default-dest)
  809.         (source (tackon source-dir "stopnet.miami"))
  810.         (dest   @default-dest))))
  811.  
  812. (if (= 1 (exists (tackon @default-dest "AEMail.readme") (noreq)))
  813.     (delete (tackon @default-dest "AEMail.readme")
  814.         (prompt "Deleting old AEMail.readme file")
  815.         (infos)))
  816.  
  817. (if (= 1 (exists (tackon aem-docs-dir "AEMail.readme") (noreq)))
  818.     (delete (tackon aem-docs-dir "AEMail.readme")
  819.         (prompt "Deleting old AEMail.readme file")
  820.         (infos)))
  821.  
  822. (if (= 1 (exists (tackon @default-dest "AEMail.doc") (noreq)))
  823.     (delete (tackon @default-dest "AEMail.doc")
  824.         (prompt "Deleting old AEMail.doc file")
  825.         (infos)))
  826.  
  827. (if (= 1 (exists (tackon @default-dest "AEMail.guide") (noreq)))
  828.     (delete (tackon @default-dest "AEMail.guide")
  829.         (prompt "Deleting old AEMail.guide file")
  830.         (infos)))
  831.  
  832. (set aem-readtool
  833.     (if (= pager-cmd "RAM:More")
  834.         ("more")
  835.         (pager-cmd)))
  836.  
  837.  
  838. (if (<> 0 aem-docs)(
  839.     (if (BITAND aem-docs 1)
  840.         ((copyfiles
  841.             (prompt "Copying AEMail.readme file to " @default-dest)
  842.             (source "RAM:AEMfiles/AEMail.readme")
  843.             (dest   @default-dest)
  844.             (infos))
  845.         (tooltype
  846.             (dest (tackon @default-dest "AEMail.readme"))
  847.             (noposition)
  848.             (setdefaulttool aem-readtool))))       
  849.  
  850.     (if (BITAND aem-docs 2)
  851.         ((copyfiles
  852.             (prompt "Copying AEMail.doc file to " aem-docs-dir)
  853.             (source "RAM:AEMfiles/AEMail.doc")
  854.             (dest   aem-docs-dir)
  855.             (infos))
  856.         (tooltype
  857.             (dest (tackon aem-docs-dir "AEMail.doc"))
  858.             (noposition)
  859.             (setdefaulttool "more"))))       
  860.  
  861.     (if (BITAND aem-docs 4)
  862.         ((copyfiles
  863.             (prompt "Copying AEMail.guide file to " aem-docs-dir)
  864.             (source "RAM:AEMfiles/AEMail.guide")
  865.             (dest   aem-docs-dir)
  866.             (infos))
  867.         (tooltype
  868.             (dest (tackon aem-docs-dir "AEMail.guide"))
  869.             (noposition))))
  870.  
  871.     (if (BITAND aem-docs 8)
  872.         ((copyfiles
  873.             (prompt "Copying email.txt file to " aem-docs-dir)
  874.             (source "RAM:AEMfiles/email.txt")
  875.             (dest   aem-docs-dir)
  876.             (infos))
  877.         (tooltype
  878.             (dest (tackon aem-docs-dir "email.txt"))
  879.             (noposition)
  880.             (setdefaulttool "more"))))       
  881.  
  882. ))
  883.  
  884.  
  885. (copyfiles
  886.     (prompt "copy ARexx files to " aem-rexx-dir)
  887.     (source "RAM:AEMfiles/ARexx/")
  888.     (dest   aem-rexx-dir)
  889.     (all)
  890.     (noposition)
  891.     (infos))
  892.  
  893. (tooltype
  894.     (prompt "Setting AEMail Tool Types")
  895.     (dest (tackon @default-dest "AEMail"))
  896.     (if (<> "" aem-config)
  897.         (settooltype "CONFIG" aem-config))
  898.     (if (= 1 aem-interlace)
  899.         (settooltype "INTERLACE" "YES"))
  900.     (if (<> "" aem-username)
  901.         (settooltype "USERID" aem-username))
  902.     (if (<> "" aem-password)
  903.         (settooltype "PASSWRD" aem-password))
  904.     (if (<> "" aem-realname)
  905.         (settooltype "REALNAME" aem-realname))
  906.     (if (<> "" aem-from)
  907.         (settooltype "FROM" aem-from))
  908.     (if (<> "" aem-replyto)
  909.         (settooltype "REPLYTO" aem-replyto))
  910.     (if (<> "" aem-organization)
  911.         (settooltype "ORGANIZATION" aem-organization))
  912.     (if (<> "" aem-domain)
  913.         (settooltype "DOMAIN" aem-domain))
  914.     (if (<> "" aem-popserver)
  915.         (settooltype "POP_SERVER" aem-popserver))
  916.     (if (<> "" aem-smtpserver)
  917.         (settooltype "SMTP_SERVER" aem-smtpserver))
  918.     (if (<> "" aem-editor)
  919.         (settooltype "EDITOR" ("\"%s\"" aem-editor)))
  920.     (if (<> "" aem-startnet)
  921.         (settooltype "STARTNET" aem-startnet))
  922.     (if (<> "" aem-stopnet)
  923.         (settooltype "STOPNET" aem-stopnet))
  924.     (if (BITAND aem-options 1)
  925.         (settooltype "DELETEMAIL" "YES"))
  926.     (if (BITAND aem-options 2)
  927.         (settooltype "STRIPDUPS" "YES"))
  928.     (if (BITAND aem-options 4)
  929.         (settooltype "FULLHEADER" "YES"))
  930.     (if (BITAND aem-options 8)
  931.         (settooltype "HDRINREPLY" "YES"))
  932.     (if (BITAND aem-options 16)
  933.         (settooltype "AUTOCONNECT" "YES"))
  934. )
  935.  
  936. (procedure aemp-build_mailcap
  937.  
  938.     ((set
  939.         aem-mimetypes
  940.             (askoptions
  941.                 (prompt "Indicate those mime types/subtypes you want "
  942.                         "display programs for")
  943.                 (help   "Check which types/subtypes that you will specify "
  944.                         "a display program for.  If you specify the type/all "
  945.                         "option you must have a program that can determine "
  946.                         "the appropriate display subtype")
  947.                 (choices    "text/all"
  948.                             "images/all"
  949.                             "images/gif"
  950.                             "images/jpeg"
  951.                             "images/x-iff"
  952.                             "audio/all"
  953.                             "audio/basic"
  954.                             "video/all"
  955.                             "video/mpeg"))
  956.  
  957.         aem-curmailcap 0)
  958.  
  959.     (delete aem-mailcap_file)
  960.  
  961.     (while (<> 0 aem-mimetypes)
  962.         ((if (BITAND aem-mimetypes 1)
  963.             ((set
  964.                 aem-curmimet
  965.                     (select aem-curmailcap "text/*"
  966.                                            "images/*"
  967.                                            "images/gif"
  968.                                            "images/jpeg"
  969.                                            "images/x-iff"
  970.                                            "audio/*"
  971.                                            "audio/basic"
  972.                                            "video/*"
  973.                                            "video/mpeg")
  974.  
  975.                 aem-mimefile
  976.                     (askfile
  977.                         (prompt "Indicate program to display " aem-curmimet)
  978.                         (help   "Select the program in the file list that will "
  979.                                 "be used the display the file described by the "
  980.                                 "indicated mime type/subtype")
  981.                         (default ""))
  982.  
  983.                 aem-mimefile
  984.                     (askstring
  985.                         (prompt "Add the parameters required for the mime "
  986.                                 "display program you selected\n\n"
  987.                                 "You must always add '%s' to specify where "
  988.                                 "the file you are displaying goes.\n")
  989.                         (help   "You will need to add parmeters that may be "
  990.                                 "required by the display program that you "
  991.                                 "specified.  One required parameter required "
  992.                                 "by ALL programs is '%s' to specify where "
  993.                                 "the file name for the file you are "
  994.                                 "displaying goes.\n")
  995.                         (default (cat aem-mimefile " %s")))
  996.  
  997.                 aem-mimeonwb
  998.                     (askbool
  999.                         (prompt "Does the mime display program have to open "
  1000.                                 "on the Workbench?"
  1001.                         (help   "Some programs will always open on the "
  1002.                                 "Workbench.  Others will open on their own "
  1003.                                 "screen.  If your display program opens on "
  1004.                                 "the Workbench, you must reply 'YES' to this "
  1005.                                 "request.\n")))
  1006.  
  1007.                 aem-mimefile
  1008.                     (if (= 1 aem-mimeonwb)
  1009.                         (cat "WB;" aem-mimefile)
  1010.                         ("%s" aem-mimefile)))
  1011.  
  1012.             (textfile
  1013.                 (prompt "Creating .mailcap file")
  1014.                 (help   "Creating .mailcap file")
  1015.                 (dest   aem-mailcap_file)
  1016.                 (include aem-mailcap_file)
  1017.                 (append ("%s; \"%s\"\n" aem-curmimet aem-mimefile)))))
  1018.         (set aem-curmailcap (+ 1 aem-curmailcap))
  1019.         (set aem-mimetypes (shiftright aem-mimetypes 1))
  1020.  
  1021.     )))
  1022. )
  1023.  
  1024. (set aem-existmailcap 0)
  1025.  
  1026. (if (= 2 @user-level)
  1027.     (set aem-existmailcap
  1028.         (askbool
  1029.             (prompt "\nDo you want to use an existing mailcap file used by "
  1030.                     "another program?\n\nIf you want to use the default "
  1031.                     "mailcap file that comes with AEMail, reply 'NO' to this "
  1032.                     "message.")
  1033.             (help   "AEMail can run with a mailcap file created for another "
  1034.                     "program.  If you reply 'YES' to this message you will "
  1035.                     "be prompted for the directory containing your mailcap "
  1036.                     "file and the MAILCAP= tool type will be set up in you "
  1037.                     "AEMail icon"))))
  1038.  
  1039. (if (= 1 aem-existmailcap)
  1040.     ((set aem-mailcapdir
  1041.         (askdir
  1042.             (prompt "Enter the drawer that contains your mailcap file")
  1043.             (help   "AEMail can run with a mailcap file created for another "
  1044.                     "program.  Enter the directory that contains the mailcap "
  1045.                     "file that you want and the MAILCAP= tool type will be set "
  1046.                     "up in you AEMail icon")
  1047.             (default aem-mail-dir)
  1048.             (newpath)))
  1049.     (if (= 1 (exists (tackon aem-mailcapdir "mailcap")(noreq)))
  1050.         (tooltype
  1051.             (prompt "Setting AEMail Tool Types")
  1052.             (dest (tackon @default-dest "AEMail"))
  1053.             (settooltype "MAILCAP_DIR" aem-mailcapdir))
  1054.         (message "A mailcap file does not exist in the directory you have "
  1055.                  "specified. Continuing assuming no existing mailcap file."))))
  1056.  
  1057. (if (< exec-version version_3_0)
  1058.     (if (= 2 @user-level)
  1059.         ((set
  1060.             aem-createmailcap
  1061.             (askbool
  1062.                 (prompt "\nYou are running under AmigaDos 2.1.  Do you want "
  1063.                     "to create your own mailcap file?\n")
  1064.                 (help   "AEMail is configured either by Tool Types in it's icon "
  1065.                     "or by a configuration screen which is automatically "
  1066.                     "called up when you first execute AEMail if the Tool "
  1067.                     "Type parameters were not given.  By replying "
  1068.                     "'Yes, Configure Now' you will be setting the Tool Type "
  1069.                     "parameters\n"))
  1070.             aem-mailcap_file (tackon aem-mail-dir "mailcap"))
  1071.         (if (= 1 aem-createmailcap)
  1072.             (aemp-build_mailcap))))
  1073.     (copyfiles
  1074.         (prompt "Copying mailcap to " aem-mail-dir)
  1075.         (source (tackon source-dir "mailcap"))
  1076.         (dest   aem-mail-dir))
  1077. )
  1078.  
  1079. (textfile
  1080.     (prompt "Creating ENV:AEMail_Dir")
  1081.     (help "Creating ENV:AEMail_Dir")
  1082.     (dest "ENV:AEMail_Dir")
  1083.     (append @default-dest))
  1084.  
  1085. (textfile
  1086.     (prompt "Creating ENVARC:AEMail_Dir")
  1087.     (help "Creating ENVARC:AEMail_Dir")
  1088.     (dest "ENVARC:AEMail_Dir")
  1089.     (append @default-dest))
  1090.  
  1091.  
  1092. (startup
  1093.     aem-name
  1094.         (prompt "Adding AEMAIL assign to S:User-Startup")
  1095.         (help   "An ASSIGN statement for AEMAIL will now be added to the S:User-Startup")
  1096.         (command ("ASSIGN %s \"%s\"\n" aem-assign aem-mail-dir))
  1097.         (command ("ASSIGN C: sys:REXXC ADD")))
  1098.  
  1099. (makeassign aem-name aem-mail-dir)
  1100.  
  1101. (set aem-copyold 0)
  1102. (if (= 1 (exists "AEMail:folder.config" (noreq)))
  1103.     (set aem-copyold
  1104.         (askbool
  1105.             (prompt "You have an existing folder.config file\n\n"
  1106.                 "Do you want to save this file as folder.config.old?\n")
  1107.             (help "If you are installing over a version of AEMail prior to "
  1108.                 "Version 1.40 you should reply YES to this prompt\n\n"
  1109.                 "If you reinstall a version earlier than 1.40 you should "
  1110.                 "rename folder.config.old to folder.config\n")
  1111.             (choices "Yes, save folder.config" "No, Ignore"))))
  1112.  
  1113. (if (= 1 aem-copyold)
  1114.     (copyfiles
  1115.         (prompt "Copying folder.config to folder.config.old")
  1116.         (source "AEMail:folder.config")
  1117.         (newname "folder.config.old")
  1118.         (dest "AEMail:")))
  1119.  
  1120. (set continue 0
  1121.      aem-regkey ""
  1122.      aem-regname aem-realname
  1123.      aem-aemr (tackon source-dir "AEMR"))
  1124.  
  1125. (if (= 1 (exists aem-aemr (noreq)))
  1126.  
  1127.     (while
  1128.         (= continue 0)
  1129.  
  1130.         (set
  1131.             aem-regkey
  1132.                 (askstring
  1133.                     (prompt "You are installing a registered version of "
  1134.                             "AEMail.\n\n"
  1135.                             "Please enter the key code provided with your "
  1136.                             "copy of AEMail.")
  1137.                     (help   "You must enter your key code EXACTLY as provided "
  1138.                             "using the correct upper and lower cas letters.")
  1139.                     (default aem-regkey))
  1140.  
  1141.             aem-regname
  1142.                 (askstring
  1143.                     (prompt "Please enter the name you want AEMail registered "
  1144.                             "under:")
  1145.                     (help   "You must enter a registered name\n\n"
  1146.                             "If you entered a 'real name' under the "
  1147.                             "configuration previously, it will be the default "
  1148.                             "registration name.  You can make any changes to ")
  1149.                     (default aem-regname))
  1150.  
  1151.             aem-regserno
  1152.                 (run aem-aemr aem-regkey "\""aem-regname"\""))
  1153.  
  1154.         (if (> 100 aem-regserno)
  1155.             ((if (= 1 aem-regserno)
  1156.                 ((message "You did not enter either a key or registration "
  1157.                          "name\n\nTry Again!")
  1158.                 (set continue 0)))
  1159.             (if (= 2 aem-regserno)
  1160.                 ((message "You entered an incorrect key code\n\nTry Again!")
  1161.                  (set continue 0)))
  1162.             (if (= 50 aem-regserno)
  1163.                 ((message "Failed to create .registration file\n\n"
  1164.                           "AEMail: is probably not assigned.\n\n"
  1165.                           "Continuing as an unregistered version.  Contact "
  1166.                           "jzachar@calweb.com for further instructions.")
  1167.                  (set continue 1))))
  1168.             (set continue
  1169.                 (askbool
  1170.                     (prompt "\nIs the following information correct?\n\n"
  1171.                             "registration name: " aem-regname "\n"
  1172.                             "    serial number: " aem-regserno "\n\n"
  1173.                             "If not, you can repeat the registration process")
  1174.  
  1175.                     (help   "Check the serial number with the number on the "
  1176.                             "provided information sheet.  If it or your "
  1177.                             "registration name or incorrect you can select "
  1178.                             "\"No, Enter Again\" or, if everything is all "
  1179.                             "right, select \"Yes, Repeat Registration\"\n")
  1180.                     (choices "Yes, Continue" "No, Repeat Registration"))))))
  1181.  
  1182.  
  1183. (message
  1184.     "\n\nThe installation of AEMail is now complete.  You can execute AEMail "
  1185.     "now by double clicking on it's icon without rebooting your system."
  1186.     "  The AEMAIL: assignment has been made and also has been placed in your "
  1187.     "S:User-Startup file.  Please read the AEMail.Readme file before "
  1188.     "executing AEMail.")
  1189.  
  1190. (set AEM-End
  1191.     (run pager-cmd "RAM:AEMfiles/AEMail.Readme" (safe)))
  1192.  
  1193. (delete
  1194.     "RAM:AEMfiles"
  1195.     (prompt "Deleting RAM: AEMail files")
  1196.     (optional "force")
  1197.     (safe)
  1198.     (infos)
  1199.     (all))
  1200.  
  1201. (exit)
  1202.  
  1203.